home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol156 / rbbsutil.arc / USERLIST.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1985-05-19  |  640 b   |  12 lines
  1. 5  Y=1
  2. 6  LINE INPUT "Password to access program: ",Z$:GOSUB 5000:IF  Z$<>"CASIO" THEN SYSTEM
  3. 10  OPEN "USERS" AS #2
  4. 20  FIELD 2,31 AS N$,15 AS PW$,2 AS SL$,14 AS OP$,24 AS CS$,20 AS MA$,14 AS TD$,3 AS LND$,2 AS UDL$,2 AS UUL$
  5. 25  IF Y=>LOF(2)/128 THEN END
  6. 30  GET #2,Y
  7. 35  PRINT"-------------------------"
  8. 40  PRINT"    Name: "N$:PRINT"Security:"CVI(SL$):PRINT" Last On: "TD$:PRINT"Computer: "MA$:PRINT"Location: "CS$:PRINT"Password: "PW$:PRINT"Times on:"CVI(OP$):PRINT " Uploads:"CVI(UUL$):PRINT"Dwnloads:"CVI(UDL$)
  9. 45  PRINT :PRINT"HIT <RETURN> TO ADVANCE":COLOR 7,0:R$=INPUT$(1):PRINT
  10. 50  Y=Y+1:GOTO 25
  11. 5000  FOR Z=1 TO LEN(Z$):MID$(Z$,Z,1)=CHR$(ASC(MID$(Z$,Z,1))+32*(ASC(MID$(Z$,Z,1))>96)):NEXT:RETURN
  12.